home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 4
/
64er_Magazin_Sonderheft_04_86-04_1986_Markt__Technik_de_Disk_1_of_2_Side_A.d64
/
listing 04.p
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
306b
|
11 lines
51000 rem befehlszerlegung-codierung -------------------------------------------
51001 :
51005 rem be$ in be$(1)-be$(n) zerlegen
51010 fori=0to10:be$(i)="":nexti
51020 wz=0
51030 fori=1tolen(be$)
51040 : ifmid$(be$,i,1)=" "thenwz=wz+1:goto51060
51045 : ifwz>10thenprint"eingabe ist zu lang !":i=len(be$)+1:goto51060
51050 : be$(wz)=be$(wz)+mid$(be$,i,1)
51060 nexti